home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / game / think / GuessStress.lha / Guess_Stress / Install < prev   
Encoding:
Text File  |  2000-06-11  |  3.6 KB  |  200 lines
  1. ;
  2. ; $VER: Guess Stress installation 1.0 (08.05.2000)
  3. ;
  4. ; Copyright (c) 2000 Kees Coenradi
  5. ;
  6.  
  7. ;****************************************************************************
  8. ;
  9. ; English texts
  10. ;
  11. (if (not (= @language "nederlands"))
  12.   (
  13.     (set #bad-kick "You must have AmigaOS 3.0 (V39) or newer to be able to use Guess_Stress.")
  14.     (set #selectdir "Please select where to install Guess_Stress\nA directory 'Guess_Stress' will be created automatically")
  15.     (set #makediracd "Creating directory 'Guess Stress'")
  16.     (set #copymainprg "Copying Guess_Stress...")
  17.     (set #copydocs "Copying documentation...")
  18.     (set #copypuzzle "Copying puzzles...")
  19.     (set #copyfonts "Copying Fonts...")
  20.     (set #copycata "Copying Catalogs...")
  21.   )
  22. )
  23.  
  24. ;****************************************************************************
  25. ;
  26. ; Nederlandse tekst
  27. ;
  28. (if (= @language "nederlands")
  29.   (
  30.     (set #bad-kick "U heeft minimaal AmigaOS 3.0 (V39) of hoger nodig om Guess_stress te gebruiken.")
  31.     (set #selectdir "Waar moet Guess_Stress geinstalleerd worden?\nEen lade voor 'Guess_stress' wordt automatisch gemaakt.")
  32.     (set #makediracd "Ik maak lade 'Guess_Stress'")
  33.     (set #copymainprg "Kopieer Guess_Stress...")
  34.     (set #copydocs "Kopieer Handleiding...")
  35.     (set #copypuzzle "Kopieer puzzels...")
  36.     (set #copyfonts "Kopieer Fonts...")
  37.     (set #copycata "Kopieer Catalogs...")
  38.     
  39.   )
  40. )
  41.  
  42. ;****************************************************************************
  43. ;
  44. ; Setup
  45. ;
  46.  
  47. (complete 0)
  48.  
  49. (if (< (/ (getversion) 65536) 39)
  50.   (abort #bad-kick)
  51. )
  52.  
  53.  
  54.  
  55. ;****************************************************************************
  56. ;
  57. ; Welcome
  58. ;
  59.  
  60. (welcome)
  61.  
  62. (complete 10)
  63.  
  64. ;****************************************************************************
  65. ;
  66. ; Setup directory
  67. ;
  68.  
  69. (set #destdir
  70.   (askdir
  71.     (prompt #selectdir)
  72.     (help @askdir-help)
  73.     (default @default-dest)
  74.     (newpath)
  75.   )
  76. )
  77.  
  78.  
  79. (set @default-dest (tackon #destdir "Guess_Stress"))
  80.  
  81.  
  82. (complete 20)
  83.  
  84. (makedir @default-dest
  85.   (prompt #makediracd)
  86.   (help @makedir-help)
  87.   (infos)
  88. )
  89.  
  90. (complete 40)
  91.  
  92. ;****************************************************************************
  93. ;
  94. ; Copy main program
  95. ;
  96.  
  97. (copyfiles
  98.   (prompt #copymainprg)
  99.   (help @copyfiles-help)
  100.   (source "Guess_Stress")
  101.   (dest @default-dest)
  102.   (infos)
  103.   (confirm)
  104. )
  105.  
  106. (complete 50)
  107.  
  108. (copyfiles
  109.   (prompt #copymainprg)
  110.   (help @copyfiles-help)
  111.   (source "bg")
  112.   (dest @default-dest)
  113.   (infos)
  114. )
  115.  
  116. (complete 55)
  117.  
  118. (set catalog_dir (tackon @default-dest "Catalogs"))
  119. (if (not (exists catalog_dir))
  120. (makedir catalog_dir)
  121. )
  122.  
  123. (copyfiles
  124.   (prompt #copycata)
  125.   (help @copyfiles-help)
  126.   (source "Catalogs/")
  127.   (dest catalog_dir)
  128.   (all)
  129.   (confirm)
  130.  )
  131.  
  132. ;****************************************************************************
  133. ;
  134. ; Copy puzzels
  135. ;
  136.  
  137. (set puzzle_dir (tackon @default-dest "Puzzles"))
  138. (if (not (exists puzzle_dir))
  139. (makedir puzzle_dir)
  140. )
  141.  
  142. (copyfiles
  143.   (prompt #copypuzzle)
  144.   (help @copyfiles-help)
  145.   (source "Puzzles/")
  146.   (dest puzzle_dir)
  147.   (all)
  148.   (confirm)
  149.  )
  150.  
  151. (complete 60)
  152.  
  153. ;****************************************************************************
  154. ;
  155. ; Copy fonts
  156. ;
  157.  
  158. (set Fonts_dir (tackon @default-dest "Fonts:"))
  159. (if (not (exists Fonts_dir))
  160. (makedir Fonts_dir)
  161. )
  162.  
  163. (copyfiles
  164.   (prompt #copyfonts)
  165.   (help @copyfiles-help)
  166.   (source "Fonts/")
  167.   (dest Fonts_dir)
  168.   (all)
  169.   (confirm)
  170.  )
  171.  
  172. (complete 80)
  173.  
  174. ;****************************************************************************
  175. ;
  176. ; Copy documentation
  177. ;
  178.  
  179. (copyfiles
  180.   (prompt #copydocs)
  181.   (help @copyfiles-help)
  182.   (source "")
  183.   (pattern "#?.(guide|readme)")
  184.   (dest @default-dest)
  185.   (infos)
  186.   (confirm)
  187. )
  188.  
  189. (complete 90)
  190.  
  191.  
  192. ;****************************************************************************
  193. ;
  194. ; Exit
  195. ;
  196.  
  197. (complete 100)
  198. (exit)
  199.  
  200.